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Section I 


INTRODUCTION 


This Operating Manual is for a Programming System for Numerically 
Controlled Plame Cutting of Ships Parts. Computer programa, complete 
with operating instructions, flow diagrams, and program listings, 

are included. Sample programs and special instructions are provided 
to clarify the use of the System. 


The System presented herein has been developed using: 


— IBM-1620 computer, 60K memory, with card and tape input 
and output 


— California Computer Products No. 560 digital plotter, 
connected on-line to the computer 


— IBM No. 026 printing key punch 
— Flexowriter No. NC-1 


— Air Reduction Company “Tape-O-Graph" flame cutting machine, 
with General Electric Co. Mark Century director 


Because this equipment was used in developing the System, the programs 
written by the Protect and presented herein are for these specific 
units.” The System Flow Diagram, using the AUTOMAP 1r* parts progran- 
ming language and the equipment specified above, is shown in Fig. I-1. 


Programs can be written for and, in some instances, are already available 


for similar equipment of other manufacturers. 


*the presentation of these computer programs does not constitute endorse- 
ment or recommendation for any specific product, but are presented as a 
guide to the requirements for any system developed around any combination 
of equipment. 


*k 
Programmers’ Manual available to users directly from IBM Corp. 
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AUTOMAP I 


PHASE IT 
PROCESSING 


AIRCO 
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MACHING 


Fig.‘ I-1 System Flow Diagram for Numerically Controlled Flame Cutting 
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The System presented here has had imposed upon it the requirement that 
it be able to accept information from the engineering/working drawings 
in the form presently used. This ability may lead to the earlier use 
of the System, but improved design forwats based on numerical control 
requirements would allow for more efficient programing. 
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Section II 


THE PROGRAMMIEG SYSTEM 


The input information with which the parts programmer starts is 
obtained from the working dravings and from the loft. The loft 
information can come from either the common graphical loft or from a 
mathematical loft. 


A. G icai loft 


If the programmer is to obtain his information from a graphical 
jieft, he must have all of the final corrected offsets for 
frames, including all waterlines, buttocks, offsets for sight 
edges of decks, longitudinals and shellplates. In scout 
instances, it may be necessary to have more offsets than just 
the normel smount used by the grapiical loft. Experience will 
indicate the optimum nusber required. 


These offsets must be accurately measured and verified. If a 
dimension is misread, which is net uncommon, a bad part will be 
produced. A point reading X-Y plotter could be used to over- 
come this problem and to speed up the process of obtaining 
offsets. 


For parts programming, the offsets should be listed in a different 
way than is ordinarily used. A suggested form for such listing 
is shown in Fig. II-1. 
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Mathematical Loft” 


If the parts programmer receives his information from a mathematical 
left, he must he given a similar printout and a deck of cards con- 
taining the same information furnished by the graphical loft. In 
Addition, he must have cards containing the coefficients of the 
equations which define the hull form at the frames. These cards 
must contain the limits of the equations, i.e., the points of 
beginning and ending of that part of the curve defined by that 
particular equation, and the frame number defined. Typical punched 
cards, giving hull coefficients and coordinate data, are shown in 
Fig. II-2. 


The programming language specifications require that the language 
be capable of accepting the coefficients of cubic equations of the 
form X = ay’ + by” + cy +d. If the hull is defined in another 
manner, such as by conic equations, then the parts programming 
language selected must be capable of accepting that form of input. 


Working Drawings 

Working drawings as presently dimensioned do not give the informa- 
tion in the form required by a parts programmer; therefore, the 
programmer must convert much of the dimensional information to 


coordinate foram. 


If the hull form information is to be loft offsets, it may be more 
convenient for the programmer to place this information on the 
working drawing. Fig. II-3 shows a sample working drawing to which 
coordinate identification has been added. 


* 
Assumes the use of the mathematical lofting system developed under 
Contract NObs-4427 (Ref. 1) 
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CARD CONTAINING CUBIC EQUATIONS 


CHececeeoMeheaceeHeasesseggesssegecsececesscaccepecncegeshecseegpocesecggsesneces 
EIFZSEF STS S WHINE? BUEBARANA SSA SVBVY RVNERSBRSACHSSESLCSS|SSAUVRHALSSRSSSSLAKASEVHRAHERARLARBR 
REREEESEEE) RGRGRERSE) DEGREES! SEREEE! FOQUREOOEEE! [ERI LSOUSERERCORESCER SOUR ROEEE ES) 
2222222222R222222222228 22 2G BR 2 2222222822222222222202222222222222222222222222G222 
23M 33 999 3333339339 9339333332339333333333933HI3333333393H333399H39333H9993333323 
i PVOVTTTT, YYT PUTTY PUTT PUTTY) | PUTT TTY) LEY UTTTYTTYEL IT) TY) TYTYTYYTTY TTY TTT T eee 
| SSSSPSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSMSSSSSSMSSSMSSSSMSSPSSSSSSSSSSSSSSSSSSSSMSSSS 
| SCCEEECECSESECCERRECCSECECCECECEECCCCCECCECCESRSSCCCCECSECEECEECECCCESECREGECECESCSEEE 
iP ESREEREREREESSSEEL PRPSERREREED, PRPRPRREERODERR] CESRESESED PERERESEEPERERESEES B! 
HPecsncsBccascsesPsrasssassscacgwsassssassesgsevaseessecshsesGRsharecehehasascess 


SHMSHTHTISSHSHSSHLISHHHSSSHSISSHHH9S9S9H9N99999999999999995999999998hNSI8N8989999 
PIPAS STO ISMIUIANBNNK 7 PINHUAKBHT RAVWRWRBRESVVV|ALCSSCASV SSD VONSSVVBHALOHKCARKSSHANRNNSBRNRRBE 
tat 208 


PBccvccnvcneGGeccceohhasseneghhehacececesescnsscseeQaccecccssascsggvgcsencsseased 
tPrITASH Taser WINS MST LOMB AP ARRNROKS SY WRN COMS ST SABRRGASSTRRERAOKHSCURAANNANAKT ADA 
for] ROBBERS) Fi REREOE) FUSE REO RERORORS REED RR OREU CRE RURERESEOORRE OREO SORE SEER OR 
2278 222222222222222222222222IAVVIAVAIADABPIAZIIAZIGZIVIADIIIDAAAAAAAZPIVZGPI2I 
2033333033398 38 33833389338 3938 9333333333303 993393333339393399933993939333393333 
VOU VVEUUCVUCVIY POUPer! CECCUVECURTECCC’! CECT) COOLEST E LCCC OSECEsEre cree eleeig, 
SSSSSSSSSSSMPSSISSSSSSSSSMPSSSSSSSSSSSSSSSSSSMSSMSSMBSSSSSSSSSSSSSSSSSSSSSSSMSSSSS 
SECC CHES HB EKSSCSSCEC EGE ECSCEES SEG CCCCGESERSCGESGCGECCCCCESCCSSSSSSCECSCSSSECEESS 3 
PEEEEEEE EASRREREEREREEEEE LARRERERESEETEEEEEEE) PERERREERERESERERESEEREESEAERERE! : 
agananaboane ran MBBR Bas aBabaM sMeassrssassWssse assesses esses eSsassssessssesseses 


ry) PERERED) RESECECEOOOEEOSESPESESESECECEOOSSCOLOR) PEEEOLECCEPER ESE EELESII ESLER EEE) 
pryeasrad 


HVT ACT BABVARMBABSVBHOUE VRS VY CVO LGN SO SOLS PIMBESHMHM TUM BRT ae RINAMBKENRRE 


wn ae em fe ee ee eS 


ee ee NEA OS See Nee ment ae a a ee 


Fig. II-2 Cards Containing Coefficients or Coordinate Data 
from Mathematical Loft 
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PROGRAMMING THE PART 


Once having the input information in the format desired, the programmer 
can then proceed to program parts for cutting. He can program these 
parts either manually or by computer, depending upon the complexity of 
the part. 


A. amming for Tape Punch iter 


For the simplest parts, the programmer may find it more efficient 
to prepare the program for a tape-punching typewriter. To do this, 
he prepares a written program, listing all of the instructions 
needed to guide the machine. Generally, he can direct the machine 
in straight line or circular cut only.” He must know the beginning 
and ending points of all lines and their intersections with circles. 
If he must define curves, and this is not recommended in manual 
programming, it is necessary that he segment the curve in a series 
of straight lines of such length that the curve will be simulated 
within the desired tolerance. 


Manual programming of rectangular parts is relatively simple, 
especially if the corner points are known. However, one can 
readily see that the complexity of programming increases rapidly 
when it becomes necessary to find the points of tangency between 
lines and circles, intersections of lines and curves, or segment 
curves into a series of straight lines. In most of these cases, 


it is recommended the part be programmed by computer. 


The programmer lists on a form all of the machine instructions 


in the sequence desired and in the format understandable by the 


; F 
Some directors have the additional capability of cutting parabolic curves. 


ek 
Other than circular arcs 
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machine director. This information is then punched into tape, 

using a tape-punching typewriter. This paper tape can then be 

fed into the machine director. A sample parts program is given 
in Appendix A. 


Because the tape thus produced is used directly i. the machines, 
nesting of multiple parts on a single plate must be done before 
programing. and the whole plate of parts programmed in sequence 
from the same axis. This type of nesting can be very time-consuming, 
and it will probably be more economical to program even the 

simplest of parts by computer if they are to be nested on a single 
plate. 


If£ the burning machine to be used does not have automatic kerf 
compensation, the path which the flame takes must be defined, rather 
than defining the actual edges of the part. This is to compensate 
for the material removed. 


B. Programming for Computer 


In this method of programming, we depend upon the computer to solve 
all of the arithmetic calculations to: 

determine points of intersection 

segment curves 


offset the flame path sufficiently to compensate 
for kerf width 


We also have the computer complete the conversion of the data into 

punched tape with the hole pattern in a format acceptable to the 
* 

burzing machine. 


; : 
Refer to Ref. 2 for a detailed explanation of computer parts programming 
language capability. 
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To program parts by computer, the programmer first describes the 
geometry of the part in the programming language selected; he then 
lists the operations the mechine must make to cut the part. 


By using MACRO instructions, programming effort is greatly reduced. 
This time-saving feature is demonstrated in the part programs 
detaiied in Appendix B, wnich includes: 

The program using only the basic language capabilities 

of AUTOMAP** 

The same program using six MACRO instructions 

Ten MACRO instructions written to minimize programming of 

repetitious operations and functions 
A library of punched cards containing these macros is maintained, 
and the appropriate cards are selected, as required by the programmer. 
The MACRO cards are read into the computer after the compiler has 
been inserted and before the actual parts program is used. 


Once the offsets from the graphical loft, or the coefficients of 
equations from the mathematical loft are known, they, too, can be 
pre-punched and appropriately inserted in the program card deck. 
The fourth section of Appendix B shows the same program using this 
capability. 


By using the two above-described features, savings in time required 
to write the programs for the sample floor is summarized as follows: 


Written Programming 
Instructions Preparation 


Required Time 
Program using only basic language 


capabilities 148 2.5 hrs 
Program using six of the MACRO 

instructions 48 -8 hrs 
Program using (a) MACROS, and (b) 

pre-punched coefficients & coordinates 25 -5 hrs 


*See Page A-5 of Ref. 2 for complete description and use of MACROS 
**For complete details in the use of AUTOMAP, see Ref. 3 
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on 


The programming process as described thus far has been developed 
within the capability of language and equipment available to the 
Project. If a high-volume of programming work is available to 
justify rental costs, the process can be made significantly more 
efficient with: 


Greater computer memory capacity to permit use of MACROS 
large enough to define similar repetitive parts compietely 


When the system is placed into full production operation, these 
and other improvements will undoubtedly be generated to make the 
process of programming parts more efficient. The fifth section 

of Appendix B indicates what may be expected to be typical programs 
for similar parts under a high-volume programming operation. 


KEY PUNCHING THE PROGRAM (FOR COMPUTER) 


The completed parts program next goes to a key punch operator who punches 
the input cards for the computer. Tape-punched computer input is not 


recommended, except perhaps in a very low-volume operation. 


Experience has shown that a key punch operator skilled in normal business 
data card punching can be readily taught to punch numerical control tapes 


and cards. 


COMPUTER OPERATION 


After the cards are punched, they are supplemented with any pre-punched 
cards called for in the program to form the data input to the computer 
language program. MACRO cards are read prior to the data input, as 


previously stated. 


The computer operating instructions are furnished with the language 
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programs (ref. 3) Training in the use of the parts programming 
language and in the operation of the computer is generally furnished 


free of charge by the computer manufacturer. 


CHECKING THE PROGRAM 


The parts program must be checked for accuracy before cutting a part. 
This checking can be done during the computer operation and at some 
phase prior to the post processing. 


The procedure developed uses an "on line" plotter which is used to 
draw a reduced-scale picture of the part. Experience has shown that 
programming errors (as opposed to measurement errors) are readily 
discernible on a small-scale plot of the part and are usually also 
easily corrected at this time. 


The plotting program and operating instructions for use with the AUTOMAP 
language, the IBM-1620, and the California Computer Products Co. plotter 
-are included in Appendix D. Similar programs can be written for other 
languages, computers, and plotters. 


A typical plot produced on a Cal-Comp plotter is shown in Fig. I1-4, and 
Fig. II-5 shows the plot of a part containing programming errors to 
demonstrate how readily distinguishable such errors become. A typical 
part plot from a General Dynamics 4020 plotter, employing the APT 
language, is shown in Fig. II-6. 
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Fig. 11-4 Typical Plot of Part Produced on Cal-Comp Plotter 
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Fig. II-6 Typical Part Plot from a General Dynamics Piotter, 


Using APT Language 
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THE NESTING FROCEDUREZ 


The nesting procedure developed employs the plot of the parts which were 
produced for checking purposes in the previous step, and the punched 
cards which were used to generate the plots. 


The procedure used is as follows: 


a. The plotted, scaled parts are cut out around their periphery 
with scissors. This need not be a precise operation. 


b. These plots are then manually nested on graph paper on which 
the plate dimensions have been outlined. This operation is 
shown in Fig. II~7. 


c. For each part, the X and Y coordinates of the location of any 
two widely separated known points on each part, such as 
corners, are read from the graph and recorded on a form such 
as is shown in Fig. II-8. 


d. This information for each plate is then punched into cards, 
one card for each part. 


e. These cards are then merged with the cards which were used in 
the original plotting operation. 


f. The cards are then re-run in the computer, where the original 
dimensions are rotated and translated to their new locations 
on the plate, and then post processed to produce a tape for 
the burning operation. 


g- Using either cards or tape, a final sketch can be drawn on the 
plotter to show actual sequence of motions of the burning machine. 
Figure II-9 shows such a sketch. 


The program and operating instructions for the post processor. (which 
includes the nesting routine) for the AUTOMAP language and General 
Electric Co. Mark Century director, are given in Appendix E. 


The IBM-1620 program.and operating instructions for plotting the Gz 
Mark Century tape on a California Computer Products Co. plotter is 
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ERROR CORRECTION 


During computer operation, errors may appear which were caused by incorrect 
part programming. In many instances these errors can be corrected without 
repeating previously-perforwed operations. Appendix C shows several methods 


for correcting such errors at the various phases of computer operation. 


Through short-cut methods of correcting errors, significant savings in 
programming time can result. 
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Fig. A-1 Drawing of Sample Part UNC-1 
to be Manually Programmed... . 


Fig. A-2 Manual Programing of Sample 
Part Showing (1) Handwritten 
Entries and (2) Programmed 
Information Typed Thereon Using 
a Tepe-Punching Typewriter .. . 


Appendix A 


MANUAL PARTS PROGKAM 


When a part consists mainly of circular arcs and straight lines which 
are parallel to the axis systems, it may be more economical to prepare 
the control tape without the aid of a computer. 


SAMPIE PROGRAM 


In programming the part shown in Fig. A-l, the first step was to make 
the calculations shown on Page A-3 to locate points la and 2a on the 
centerline path of the torch. After these points were located, the 
part was programmed (Fig. A-2). The time required for a proficient 
programmer in this operation is about the same as for a computer pro- 
gramaing. 


The information was then punched into tape using a tape-punching type- 
writer which also reproduced the programmed information onto the 
program sheet under the handwritten entries. This function provides a 
way to check the accuracy of the tape-punching process. 


The cost of preparing this tape was: 


Calculation 1/4 hr. @ $4.00 = $1.00 
Programming 1/2 br. @ 4.00 = 2.00 
Tape punching 1/4 hr. @ 2.40 = -60 

Total $3.60 


This emount is roughly half ef what the enst would be to prepare this 
tape by computer. As the parts increase in complexity, however, this 


ratio is quickly reversed. 
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MANUAL CALCULATIONS Time: 15 minutes 


Center of Cutter 
Parallel to Line 2 


LINE 2 (1.75 , 8.00 , 5.445 , 2.50) 


Equation - Line 2 
3.698 
5.50 


X = 0.67182 Y + 7.12455 


( Equation - Circle Cal 
57 = (Z-6.75)* + (¥-8.00)" 


Equation of Genter of Cutter Parallel to Line 2 
Tool Radius = 1.0 


X = -.67182 Y + 5.9198 


Slope = = ~.67182 


Point 1a 


Y= 1.50 
X= 4.9121 


Equation of Centerline of Cutter Around Arc CRI 
67 = (X-6.75)* + (¥-8.00)7 
Intersection 
36 - ¥ + 16.0 ¥ - 64.00 = (-.67182 Y + 5.9198 - 6.75)" 
- ¥° + 16.0 ¥ - 28.00 = 45134 Y* = 1.1155 ¥ + .68923 
1.45134¥" - 14.8845Y + 28.68923 = 0 


¥ - 10.25570¥ +19.7674 = 0 


5.1098 
Vv 2 
x “Rath = Aas V 26. 1098 
{ Point 2a 


Y = 7.6828 
X = 0.7583 
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Fig. A-2 Manual Programming of Sample Part Showing (1) Handwritten Entries and (2) Programmed 
Informetion Typed Thareon Using a Tape-Punching Typewriter 
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Appendix B 


SAMPLE COMPUTER PARTS PROGRAMS AMD MACRO INSTRUCTIONS 


INTRODUCTION. ©. 2. 2 2 ee ee ee ew we ew wt we ew we 


PARTS PROGRAM EMPLOYING ONLY BASIC ADTOMAP 
CAPABILITIES. . 2. 2 2. 2 2 ee ew ee ee ewe ene 


PARTS PROGRAM EMPLOYING AUTOMAP MACROS. ...... .- 
MACROS - INSTRUCTIOWS FOR USE... ....+-2--- 


PARTS PROGRAM EMPLOYING TABCYL AND CUBIC 
COEFFICIENTS. . 2. 2. - 22 eee eee ee ete eee 


STANDARD PROGRAM FOR FLOOR FRAMES 46-52 ....... 
TYPICAL PARTS PROGRAM FOR FLOOR FRAMES 46-52 
USING FULL FRAME MACROS ........ . see oe 
FIGURES 
B-1 Sketch of Floor Frame 52, DIG-33. ...... 
B-2 MACRO for Circular Cutouts. ....... 
B-3 MACRO for Stringer Cutouts. ........ 
B-4 HACRO for Lightening Holes. . 2... : : + 
B-5 MACRO for Stringer Cutouts. ......-+4s. 
RB-h MACRO for Stringer Cutouts. . . 
B-6 MACRO for Stringer Cutouts. ...... ess 
B-8 MACRO for Lightening Hole ......2.4.4-. 
B-9 MACRO for Bridge. ....... av Bean 
B-10 Floor Frames 46-52. 2. 2. 6 2 ee ee eee 


Page 


B-18 
B-19 


B-21 


B-3 

B-10 
B-11 
B-12 
B-13 
B-14 
B-15 
B-16 
B-17 
B-20 


Appendix B 


SAMPLE COMPUTER PARTS PROGRAMS AND MACRO INSTRUCTIONS 


INTRODUCTION 


Part 1 of this Appendix is a computer parts program written for 
numerically controlled flame cutting of a floor at Frame 52 of the 
DIG-33. A sketch of this part is shown in Fig. B-1. The program 
employs only those basic capabilities which were written into AUTOMAP 
(or AUTOMAP 1). This part required 148 instructions to program, 96 
of which were needed to define the periphery, and 52 to define the 
cutouts. In addition, it was necessary to manually segment the curves 
to obtain the data for the parts program. 


Part 2 gives a parts program for the same DIG-33 floor, as described 

in Part 1, employing macro capability. Only 48 programming instructions 
were required to described the part, 42 of which defined the periphery, 
and 5 the cutouts. The program still required the manual segmentation 


of the curves. 


Part 3 of this Appendix gives10 macros, written to employ the Macro 
-capability of AUTOMAP II. These macros are pre-punched into cards and 
filed for use as required. They need never be reprogrammed and can be 
called into a parts program by a single statement starting with "Domac." 
As a programmer gains experience, he can prepare other macro instructions 


to reduce programming time. 


Part 4 is another parts program for DLG floor Frame 52, but in this pro- 
gram the TABCYL and general cubic capabilities of AUTOWAP are employed 
to define the curves. The hull contours have been previously described 


by cubic equations so that the coefficients of those equations can be 


used in the program. The inner hull contour is defined by a tab cylinder 
through the known stringer intersections. In this programa, oaly 25 
instructions were required to define the part. 


In Part 5, a MACRO instruction for a full floor is used to define floor 
frames 46 through 52. The parts programs for each floor now requires 
only one instruction and the necessary data points and equations to 
define it. At this time, AUTOMAP does not have the capability to 
accept MACRO's this large. However, the potential economies to be 
derived from such capability is apparent in these programs. 
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‘Fig. B-l Sketch of Floor Frame 52, DIG-33 
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PARTS PROGRAM EMPLOYING ONLY BASIC AUTOMAP CAPABILITIES 


REMARK HULL CONTOUR (i.e., No Macros or TabCy1) 
FROM/128,0,53.0,0.0 
TLRAD/02050 
TOLER/0,030 030 
DRA 
HULLS =LINE/ 127.7%, 53.5,132.39,57,87 
GAXYH2M3H-4 


G4X25YMAM-2 
G&XYMS MOM-4; 
INDIR, VECTGR/-1.0,1.0,0,0 
GOTO/HULLS 
GORGT/HULLS 
GOLFT,LINE/132.39,57.87,137.37,62.86 
GOLFT,LINE/ 137.37, 62, 86, 142,07,67.90 

STR6 =POINT/146.5027 
GOLFT, Lines thae0 37°67.90,STRE 

CL6 — LINE/STR6,ATANGL 40, 

TANG  =LINE/STR6,PERPTO,CL6. 

LWR6 = sGOLFT,LINE/PARLEL, CL6,YSHALL, 2.5 

INBD6 =LINE/PARLEL, TANG, XSHALL 12,0 

UPR6 =LINE/PARLEL,CL6,YLARGE,2.5 
GOFWD scl CIRCLE/LWR6, YLARGE, INBD6, XLARGE, RADIUS 10.5 
GOFWD SCIRCLE/UPRG »YSMALL, INBD6, XLARGE ,RADIUS,0.5 
GOFWD,UPR6 
GOLFT sLINE/STRG, 150.72 578.23 

LWRC =POINT/153.12 20 
GOLFT URE 0. 32 58° 23 

GOLFT ciacte/EEnten, Lin RADIUS, 1,5 

GOLET LINE /LURC 154.71 ,63.5 
GOLFT LiNE/154.71,83.55, 18851, 89.01 

STR7  =POINT/161.42,93 50 
GOLFT Line/i2633 "89°01, STR7 

CL]. =LINE/STR7, ATANGL ,—32.1 

TAN? =LINE/STR7,PERPTO,CL7_ 

LWR7 - =GOLFT LINE/PARLEL CL7,YSMALL, 2.5 

INBD7 = INE/PARLEL > TANT, XSMALL 12. 

UPR7 _ =LINE/PARLEL,CL7,YLARGE, 2.5. 
GOFWD CIRCLE/LURY pYLARGE, INBD7, XLARGE ,RAD1US 0,5 
GOFWD/ INBD7 
GOFWD 5CIRCLE/UPR7 ,YSMALL, » INBD7, XLARGE ,RADIUS,0.5 
GOLFT,LINE/162.13,94.65,165,61, 100,51 
GOLFT,LINE/ 165.61 , 100.51, 168,97, 106,66 
GOLFT, i iNE/ (88.97, 106, 66,1 172027 gtidets 

STR8- =POINT/175.0,119,0 
GOLFT,I.(NE/172027,113.19, STRB 

cis wh 8 NE? § i TRS, ATAN ‘GL pues 

TANS = =LINE/STR8, PERPTO, CLE 

LWR8_ = =GOLFT, LINE/PARLEL, CL8, YSMALL 245 

INBD8 = =LINE/PARLEL, TANS, XSMALL, 12,0 

UPR8 = =LINE/PARLEL,CL8, YLARGE, 2.5 
GOFWD,CIRCLE/LWR8, YLARGE, INBD8, XLARGE ,RADIUS,0.5 
GOFWD/ INBDS 
GOFWD , CIRCLE/UPRB,YSMALL, INBD8, XLARGE ,RADIUS,0.5 
GOFWD/UPRB 
GOLFT ,LINE/175<56, 120,26, 178295, 128,15 
GOLFT,LINE/178,95, 128.15, 182, 72, 7457 
GOLFT,LINE/182,72, 137057 ¢1 7040, 150.0 
GOLFT pL INE/I53, 755 150.0, tg0/t oi o 
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REMARK 


REMARK 


REMARK 


CIRCI 
HORIZ1 


INNERBOTTOM CONTOUR 
GOLFT, LiNE/153% 75, 15020, 151561, 14426 
GORGT,LINE/151.61, > Lhbs0 sah Bao 
SOnGr LINE/149.09, 1 ‘ 
‘AR, GOLFT cincte/ the. 33, 1322 F) 

GoLtt LINE/146,23,132,0, 1h2.56, i +30 
atwetazose 125.0, ATANGL, 
=L1NE/142,50,125,0,PERPTO, ith 
m=LINE/PARLEL, TAGS ,XLARGE,5,0 
~GOLFT,LINE/PARLEL ,PER6S, YLARGE, 2.5 

GOFWD ,CIRCLE/UPBS, YSMALL, 1NRBS, XSMALL ,RADIUS,0;,50 

GOFWD/ INB8S 
=l.1NE/PARLEL, PERS8, YSMALL, 2:5 

GOFWD ,CIRCLE/LW88, YLARGE, INB@8, XSMALL ,RADIUS,0.50 

GOFWD/LW88 

GOLFT,LINE/142;5,125.0,139.58, 120,0 

GORGT,LINE/139.56, 126, 6, 135.8 81, 114.0 

GORGT,LINE/135-62,114, 213.25 111.62 
mL INE/134. 25, 111262 ATANELE 3.8 
wl INE/134..25,111.62, ZePERPTOSPERIT 
wLINE/PARLEL,TA77, XLARGE , 820 
=GOLFT,LINE/PARLEL, PERI?’ YLARGE 2.5 

GCFWD,CIRCLE/UP77, YSMALL, 1NB77, XSMALL ,RADIUS,0.50 

GOFWD/ 1NB77 
#L IRETPARLEL, PER77,YSMALL, 2.5 

GOFWD ,CIRCLE/LW77, YLARGE, 1NB77, XSMALL ,RADIUS 0.50 

GOFWD)LW77 

GOLFT,LINE/134,25, ee 131.77 St 

GORGT,LINE/131. Me: 0.427% se 

GORGT,LINE/127. 

GORGT »LINE/ 122, 80,96 Se4ty 22,60 ,96 

GORGT>LINE/117,86 90207 112559, 

GORST, LINE/112.59, 8450, 109.12 80 06 

GOLFT zLINE/ 109, 12, 00.25 ,127.68,55.50 
T/HULLS 
GhXYM-6M-5 ie 
go 70 /128,0,53.0,0.0 


SL GHTENA NG HOLES: 
FROM/128,0,52.0,0.0 
TLRAD/0,050 . 
TOLER/O,010 
FEDRAT/100,0 
GOTO/134,0,65. 
LUWER. CERCULAR - 
GEXYM2M3M-4 


x 


| mLINE/ 13, tens 18, atANGL 0,0 


TROL a eeranie. 0, 1.0,0.0 
GOPAST/HORIZ1 
GOLFT/HORIZ1.. 

GOTO/CIRC1 

FAR, GORGT/CIRCI 
GOPAST/HORIZ1_. 
GEXYM-5M-6M-3 


REMARK CENTER LIGHTENING HOLE 
FEDRAT/100.0-  ~ 
GOTO/135.0,92.5,0.0 

CLLWR2 =LINE/141.0,92-5,ATANGL 36,0 

PRP2 =LINE/141.0,92,5,PERPTO,CLEWR2 

LCTR2 =LINE/PARLEL, PaP2, XSMALL, 145 

RCTR2 =LINE/PARCEL,PRP2, XLARGE,1.5 

UPPT2 =POINT/INTOF/CLLWR2,LCTR2 

LWPT2 =POINT/INTOF/CLLWR2,RCTR2  - 

CIRUP2 =CIRCLE/CENTER,UPPT2,RADIUS, 7.5 
G&XYM2M3M—4 
G4X25YHGM-2 
GAXYMSH6M= 
FEDRAT/ 20,0 
INDIR, VECTOR/—1.0,0.0,0.0 
GOTO/CIRUP2 
GORGT/CIRUP2 
GOFWD , LINE/PARLEL, CLLWR2, YLARGE, 7.5 
GOFWD ,CIRCLE/CENTER, LNPT2, RADIUS, 7.5 
GOFWD.LINE/PARLEL, CLLWR2, YSMALL, 75 
GOFWD/CIRUP2 
GOPAST, LINE/0.0,91475,,ATANGL ,0.0 
G4XYM-5M-64-3 

REMARK UPPER [.!GHTENING: HOLE 

R390 =CIRCLE/154.0, 11120, 705 

R31 CIRCLE/157.0,111.0,765 

HORIZ3 =LINE/154,0, 11120, ATANGL 0.0 

VERT3 =LINE/155.0,111.0,PERPTO,HORIZ3 

UPR3 = LINE/155.5, 11825, ATANGL 0,0 

LWR3 -=LINE/155.5, 103.5,ATANGL 0.0 
FEDRAT/100C0 ~~ 
GOTG/154.5,106.0,0.0 
GAXYM2M3ah—b 
G4X25 YMUM-2 
GEXYM5 M6 M4 
FEDRAT/ 20.0 
INDIR, VECTOR/0.0,—1.0,0.0 
GOTO/EWR3 
GORGT/LWR3 
GOFWO/R30 
GOFWD/UPR3 


eqgrum sa 


TE Rey Ray 
GOFWO/LWR3, PAST, VERT3 
GUXYM-5M-6M-3 

FEDRAT/ 100.0 

eo Tap tse Oa azetene? 


This program, empleying only basic AUTOMAP capabilities, required 
148 instructior 96 to define the periphery, 52 to define cutouts 
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PARTS PROGRAM EMPLOYING AUTOMAP MACROS 


| 
| REMARK HULL CONTOUR 
| 


START =DOMAC/128.0,53.0,0.0,0,050,0.010, 20.0 
HULL5 =LINE/127. 7h, 53.5,1 32.39, 57.87 
INDIR, VECTOR/—1 00, 1.0,0.0 
GOTO/HULLS 
GORGT/HULIS 
GOLFT,LINE/132.39, 57.87,137637,62« 86 
GOLFT,LINE/137.37,62,86,142,07,67.90 
GOLFT,LINE/142,07,67.90, 146.50, 73.0 
LFTCT2 =DOMAC/ 146.5, 73.0,-40.0,12.0, 205,0.5 
GOLFT,LINE/ 146.50, 730,150.92, 7. 
GOLFT;! INE/150.72, 78.23, 153012,81.50 
FAR, GOLFT,CIRCLE/153.12,81 50,145 
GOLFT,LINE/153.12,81,50,154=71, iss 
GCLFT, LINE/154.71,83.55,158.51 °89.01 
GOLFT,LINE/158.51,89,01, Tet =2,93.50 
LFTCT2 =DOMAC/ 161.42 93-55-32. 1, 12. 0,2.50,0.50 
GOLFT,LINE/162013,94. 561,100.51 
GOLFT,LINE/165.61,1 aecek FE Nt i 66 
GOLFT?! INE/168,,97, 106,66,172.27,113.19 
GOLFT LINE/172427,113% 19417520, 119.0 
LFTCT2 =DOMAC/175.0,1 505 
GCLFT, UTRevtysciee 130. 38, i3 295, 128415 
GOLFT;LINE/178.95, 128.15, ! 2292,137057 
GOLFT, LINE/182.72,137.57,187.40, 150,00 
GOLFT,LINE/0.0, 150.0, ATANGL 0.0 
( REMARK I NKERBOTTOM CONTOUR 


GOLFT, LENE/153. 75» 150.0,151, 61, 1h4,0 
GORGT SLINE/151561, 144.0 > 149.09, 138.0 
GORGT,LINE/149.09, eh eit 23,132 20 
FAR, SOLFT, CIRCLE/ 146 0 23,13220,165 - 


GOLFT,LINE/146.23, 132-0; 142.50, 125 .0 
LFTCTH =DOMAC/ 142.50, 125,00,=30-.0,8.00,2,50,0.50 
GOLFT,1.INE/142.5,125.0, 139.58, 120.0 
SORGT, LINE / 139.58, 120.0, 135082, 114,0 
GORGT,LINE/135.82, 114,0,134.25,111.62 
LFTCTh =DOMAC/ 134,25, 111.62,-3348,9.00, 2,50,0.50 
GOLFT sLINE/134, 255 111.62,131.77,108,0 
SORGT,LINE/ 131.77, 108.0, 12704, 102.0 
GORST, LINE/ 127,44, 102.0,122.80,96.0 
GORGT. 71 INE/ 1227.80 .96.0, 117286 90.0 
GORGT LINE? 112259. BU, 03109. 12,80.25 
GOLFT,LINE/ 109,12, 80.25, 127.88,53.50 


END eJOMAC/125.0,53.0,0.0 HULLS 


REMARK LIGHTENING HOLES 
START  sDOMAC/ 12B.0,53+0,040,0.050,0,010, 20.0 
CTCIR1 =DOMAG/134.0,65.48,0,0, 2.0 6.0 
LTHOL3 =DGMAC/ 133.0, 92. 5236. 6,7.5, 1355 1.0 
( LTHOL3 ~DOMAG/154,0,111.0,0.0574541. .0 
FIN 


This program, employing six MACROS, required only 48 pro- 
gramming instructions: 42 which defined the periphery,and 


5 the cutouts. 
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INSTRUCTIONS FOR USE 


1. MACRO instructions must be loaded in card reader before 
parts program deck 


CTOUT = DOMAC/"xCOORD" , "YCOORD" , "ROTATION ANGIE", 
(This to be followed by the variables A, B, C, D ) 


All MACROS must be given location and rotation angle. 


Rotation angle may not exceed + 89 .5° 


ta 


9.9 


MACRO FOR START 


START =HACRO/A,B,C 
SETPT »=POINT/0.0,0.0,0.0 


FROM/SETPT 
TLRAD/A 
TOLER/B 
FEDRAT/C 
G4XYM2M3M—h 
G&X25YM4M-2 
G4 XYMSM6M—4 
TERMAC 


Note: This MACRO is a substitute for seven normal 
instructions which are used to describe the start- 
ing point, tool radius, tolerance, feedrate, and 
the auxiliary functions required for torch opera- 
tion. 


Example 
START = DOMAC/128.0,53.0,0,0, .040.030,20.0 


Explanation 


From a point located at Buttock Line 128 and 
Waterline 53, no rotation is involved. The 
Radius of the torch is .040, the tolerance 
required is .030, and the feedrate is to be 
20 inches per minute. 


MACRO FOR END 


END 
P1 


=MACRO/A 
=POINT/0.0,0.0,0.0 
GOPAST/A 
G4XYM-3M-5M-6 Ss 
GOTO/P1 
END 
TERMAC 


Note: This MACRO is a substitute for four normal 
instructions which are used to describe the 
closing cut, the torch off operation, and the 
point to which the torch must return to end the 
sequence. 


Example: 
END = DOMAC/128.0,53.0,0.0, HULLS 
Explanation 


Torch should return to a point located at buttock 
line 128 and Waterline 53. The flame will go out 
after torch passes the contour defined as Hull 5. 


Beg 


cTciRi 


Fig. B-2 MACRO FOR CIRCULAR CUTOUTS 


PERP {2 


CTCIR1 


PERP13 


A = RADIUS OF CIRCIE 


B = BRIDGE WIDTH 


=MACRO/A,B 
~POINT/0.0,0.0,0.0 
=POINT/1,0,0.0,0 
 CIRCLE/CERTER PTO, RADIUS,A 
=LINE/PT10,PT1i 
=LINE/PT10,PERPTO,HORIZ1 
=LINE/PARLEL, VERTI XSMALL, A 
=LINE/PARLEL,HORIZ1, YLARGE ,B 
mL INE/PARLEL,PERP12, XLARGE,0.75 

FEDRAT/ 100.0 

DNTCUT 

GOTO/PTIO 

INDIR, VECTOR/=1,0,0.0,0,.0 

GOTO/PERP13 

GORGT/PERPI3 

CUT 


GOPAST/PAR12 
FEDRAT/20.0 
G4XYM2M3M—-4 
G4X2SYMGM-2 
GHXYM5M6M-4 
GOLFT/PAR12 
FAR, GORGT/CIRC1 
GOPAST/HORI Z1 
G4XYM=5M-6M-3 s 
TERMAC 


Aman 


EXAMPLE OF USE 


GrcIR1i 
{ EXPLANATION 


= DOMAC/134.0, 65.48,0.0,2.0,0.0001 


Cutout full circle whose center is at Btk. 134.0 and WL 65.48 
No. rotation is involved, the radius of circle is 2.00" and 
no bridge is required. 
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MACRO FOR STRINGER CUTOUTS 


aot earn aane c,D 
P21 =POINT /0. 6, 6. 0,0.0 
P22 =POINT /1.0, 0. 0, 0.0 
CL2 =LINE/P21, P22 
TAN2 =LINE/P21,PERPTO, CL2 
LWR2 = =LINE/PARLEL,CL2,YSMALL ,B 
UPR2 =LINE/PARLEL, CL2, *YLARGE, B 
INBD2 m= INE/PARLEL, TAN2, XSMALL, A 
ARC21 =CIRCLE/LWR2, SYLARGE, iNBD2, *XLARGE, RADIUS,C 
ARC22 =CIRCLE/UPR2, sYSMALL, INBD2, XLARGE , RADIUS, c 


GOLFT/LWR2 
GOFWD/ARC21 
GOFWD/ INBD2 
GOFWO/ARC22 
GOFWD/UPR2 
GOLFT/D 
TERMAC 
Rasher in OF USE 
LFTCI2 = DOMAC/ 140.0, 362.54, -28.0,8.0,2.5,0.50 
FYPTLANATIAN 


Cut stringer cutout located at BL 140.0 and WL 362.54 at an angle 
The slope of the cutout is -28° with an 8" length, and half width 
of 2.5" , and corner radius of .50" 
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LTHOL3 
Fig. Be MACRO FOR LIGHTENING HOLES 


( 


LTHOL3 =MACRO/A,B,C 
PTA  =POINT/-B,0.0,0,0 
PTB = =POINT/B,0.0,0.0 
PTC =POINT/0.0,0.0,0.0 
R30 =C IRCLE/CENTER, PTA, RADIUS, A 
R31 =C IRCLE/CENTER, PTB, RADIUS, A 
HORIZ3 =LINE/PTA,PTB 
VERT3. =LINE/PTC, PERPTO,HORIZ3 
( UPR3  =LINE/PARLEL ,HORIZ3,YLARGE ,A 
LWR3  =L INE/PARLELHORIZ3,YSMALL,A 
L31 =LINE/PARLEL,LWR3,YLARGE ,0.25 
132. -=LINE/PARLEL, VERTS,XSMALL,C 
DNTCUT 
FEDRAT/100.0 
GO TO/PTC 
INDIR, VECTOR/0.0,-1.0,0.0 
GO TO/L31 
CUT 


GO RGT/L31 
FEDRAT/20.0 
GEXYM2M3M—4 
GEX25YMaM-2 
G4XYM5M6M—4 

GO LFT/L32 

GORGT/LWRZ 

GOFWD/R30 

GOFWD/UPR3 

GOFWD/R31 

GOFWD/LWR3 PAST, VERT3 
G4XYM-5M-6M=3 Ss 
TERMAC 


AAR 


EZAMPIE OF USE 
LTBOL3 = DOMAC/141.0,92.5, -36.0,7.5,1.5,1.0 

EXPLANATION 
Cutout lightening hole whose center is located at Btk. Line 141.0 
and WL 92.5, rotated 36° clockwise, with 7.5" radius offset 1.5" 
and with a 1.0" bridge. 


5.0.0 Re12 


en 


ea ee Sct RE OS eee: ES RO i OE aR erate Sepang smn 
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Fig. B-5 MACRO FOR STRINGER CUTOUTS 


A = LERCTH 
B= WIDTH 
2 
-C = CORMER RADIUS 


LFTCTh “HACRO/A B,C,D 

P re 6,0.0,0.0 
=POINT or 0.0, 0.0 

mL INE/PA1, PAZ 

=LINE/PAI gPERPTO, »cLh 


wLINE/PARLEL, CL4, YLARGE ,B 
=L {NE/PARLEL,CL&.YSMALL,B 

= INE/PARLEL, TANK, XLARGE,A 

=C IRCLE/UPR4,YSMALL, INBD4, XSMALL ,RADIUS,C 
=CIRCLE/LWR4, YLARGE, INBD4, XSMALL ,RADIUS,C 
GOLFT/UPR& 

GOFWD/ARCHI 

GOFWD/ INBD4s 

GOFWD/ ARCK2 

GOFWD/LWR4 

GOLFT/D 

TERMAC 


INTCTA «= = DOMAC/146.0, 362.54, -28.0,8.0,2.5,0.50 


EXPLANATION 


Cut stringer cutout located at BL 140.0 and WL 362.54 at an angle. 
The slope of the cutout is -28° with an 8" length and half width 
of 2.5" and a corner radius of .50" 
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B=13 


Pig. B-6 MACRO FOR STRINCER CUTOUTS 


LFTEDG 


VERT 5 must be a vertical reference 
line previously described 


pol 
0 


RGTEDG 


ps O20 
LFICTS 
EXPLANATION 


=MACRO/A,B 

=POINT/0.0,0.0,0.0 
=POINT/=8 bo 286 

=LINE/PT5O,P 781 

=LINE/PTSO, PERPTO, TANS 
=L1NE/PARLEL, TANS, YLARGE,A 
LINE/PARLEL, ERPS, XSMALL,B 
=POINT/B,A,0 

mL INE/PTS2, PARLEL, VERTS 
GOLFT/LFTEDG 


A = Height of Cutout 
B - 1/2 Width of Cutout 


GOFWD ,CIRCLE/LFTEDG, XLARGE, TOPS, YSMALL ,RADIUS,0,20 


GOFWD/TS 


P5 
GOFWD, CIRCLE/TOPS , YSMALL ,RGTEDG, XSMALL, ,RADIUS,0.20 


GOFWD/RGTEDG 
TERMAC 


= BOMAC/120.0, 70.0,60.0,8.0,3.0 


locate a cutout centered about BL 120 and WL 70 at an angle of 60°. 
The cutout to be 8" deep and 3.0" each side of the center, with 
right edge parallel to a vertical reference line. 
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RET EDGE 


PT6O PTe6i 


Vert 6 must be a vertical reference A = Height of Cutout 
line previously described. B = 1/2 Width of Cutout 


LFTCT6 =MACRO/A,B 

PT60  =POINT/0. 040.0500 

PT61  =POINT/~B,0.0,0.0 

TANG =LINE/PT60, mere 

PERP6 =LINE/PT60,PERPTO, TANG 
TOP6 “LINE/PARLEL » TANG, YLARGE,A 
PT62. =POINT/-B,A,0 

LFTEDG =LINE/PT62, PARLEL, VERTG 
RGTEDG =LINE/PARLEL,PERPO, XLARGE,B 


GOLFT/LFTEDG 
GOFWD ,C IRCLE/LFTEDG, XLARGE, TOPS, YSMALL, RADIUS, 3.50 
GOFWD/ TOP6 
GOFWD ,CIRCLE/TOP6, YSMALL,RGTEDG, XSMALL ,RADIUS,0.,50 
GOFWD/RGTEDG 
TERMAC 
EXAMPLE 
LFTCT6 = DOMAC/120.0.70.0,60.0,8.0,3.0 
EXPLANATION 


locate a cutout centered about BL 120 and WL 70 at an angle of 60°. 
The cutout to be 8" deep and 3.0" each side of the center, with 
left edge parallel to a vertical reference line. 
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LTHOLV 


Fig. B-8 MACRO FOR LIGHTENING HOLE 


X 


A ~ RADIUS 
B = RADIUS OFFSET 
C = BRIDGE WIDTH 


=MACRO/ A, B, C 
=POINT/ 0.0, B, 0.0 
=POINT/ 0.0, -B, 0 30 
=PGINT/ 0.0, 0.0, 0.0 
@CIRCLE/ CENTER, PTA, RADIUS, A 
@CIRCLE/ CENTER, PTB, RADIUS,A 
=LINE/ PTA, PTB 
=LINE/ PTC, PERPTO, VERT3 
=LINE/ PARLEL, VERT3, XLARGE, A 
=LINE/ PARLEL, VERT3, XSMALL, A 
=LINE/ PARLEL, LFT3, XLARGE, 0.5 
aLINE/ PARLEL, HORTZ3, YLARGE, C 

ONTCUT 

FEORAT/ 100.0 

GOTO/ P 

INDIR, VEETOR/ -1.0, 0.0, 0.0 

GOT6/°L31 

CUT 

GORGT/ L3t 

FEDRAT/ 20.0 

GiXYM2M3M—4 

G4X25YMGM~2 

G4XY MS M6K—4 

GOLFT/ (32 

GORGT/ LFT3 


Ann 


&OFWD/ R30 
GOFWD/ RGT3 
GOFWD/ R31 
GOFWO/ LFT3, PAST, HORIZ3 
GEXYM-SM-6M—3 
TERMAC 
‘EXAMPIE 
LIHOLV = DOMAC/100.6,50.0,0.0,7.5,1.5,1.0 
EXPLANATION 


5 


has a vertical axis. 


-0.0 


Cutout lightening hole whose center is located at BL 100, WL 50 and 


The cutout has two arcs of 7.5" radius located 


1.5" abowe and below the horizontal reference and has a 1" bridge. 
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BRIDGE 


Fig. B-9 MACRO FOR BRIDGE 


BRIDGE =MACRO/A,B 
PTC =POINT/0.0,0 
GORGT/CIRCLE, SCENTER, PTC,RADIUS,A 


GHXYM-5 
L28 -=L{NE/PTC,PERPTO,B 

GOPAST/L2B 
G4X25YMA s 
SUXYM~4MS M6 8 
GOLFT/L2B 
GORGT/B 
TERMAC 

EXAMPLE 

BRIDGE = DOMAC/106.C,42.0,0.0,1.0,HULL 
:-EXPLANATION 


Locate a tie (called a bridge) centered at BL 106 and WL 42, rotation 
not involved. The torch to go out 1" before reaching the point and 
then igniting outside of part. Return to hull and continue cut. 
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PARTS PROGRAM EMPLOYING TABCYL AND CUBIC COEFFICIENTS 


REMARK HULL CONTOUR 
HULLS =CUB/ 466803471 2~4922214H07 5129493563 5017251054, 48.0, 96.0, 
4593381301-4853097921 5113265133 5053314230, 96,0, 144.0, 
65816161 39-hB46015372 51125332h6 5055753853, 144.0, 192.0, 
START =DOMAC/128,0,5320,0.0,02050,0,010, 20,0 
INDIR, VECTOR/—1.0, 1.0,0.0 
GOTO/HULLS 
GORGT/HULLS 
LFTCT2 =DOMAC/ 186.5573 -04-M0'.0412-0,245,0.5 ,HULLS 
FAR,GOLFT CIRCLED IS3~ 13,81.50,1.5 
GOLFT/HULLS 
LETCT2 =DOMAC/ 161.42-9345,-3241412.0,245 40.5 HULLS 
LFTCT2 ~DOMAC/175.0,119.0,-24.4,12.0,2.5,0.5,HULLS 
GOLFT,L1NE/0.0,150.0 bred ra ars 


REMARK INNERBOTTOM CONTOUR 


INBOT =TABCYL/156.67, 162 0,155.46, 156,0, 153.75, 150,0,149.09,138,0 
143,06, 126.0513 5,82, 114.0, 127043,102.0,1 1786°90-0.112-59,84.0 
78,0 300.93, 72.0 
GOLFT/ INBOT 


BO 

FAR, GOLET CIRCLE/143.06,126.0,0.0 
GOLET/ INBOT 

LETCTH =DOMAC/ 182.5 4125 .0-29011,8.05245 005 INBOT 

LFTCTH =DOMAC/134,26,111.62,—33.8,8.0.2.5,0.5, INBOT 
GOLFT TINE 7 09 o 13, BO 38 137,88 eat 
GOPAST/HULLS 


REMARK LIGHTENING HGLES 
CTCIR1 =DOMAC/134,0,65.48,0.0, 2205 a 
LTHOL3 =DOMAC/ 133.0, 92.5, ~36.0,7.5 ete 


LTHOL3 pet acdiachate 0, 111.0, 05097055105, 


Using 6 MACROs and mathematically defined curves, the original program 
which took 148 instructions can now be pregrammed with only 25 instructions 
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STANDARD PROGRAM FOR FLOOR FRAMES 46-52 (Fig. B-10) 


FLRFR = MACRO/A 
REMARK HULL CONTOUR 


HULL DOMAC/ CUBIC 
START ™ DOMAC/SETPT 
INDIR VECTOR/-1.0,1.0,0.0 


GOTO/HULLS 

GORGT/HULLS 
LFTCT2 = DOMAC/SIRG 6 
SITEDG = DOMAC/SITEDCG, 3H 


LFTCT2 = DOMAC/STRG 7 
LFICT2 = DOMAC/STRG 8 
GOLFT/PIAT 12 


REMARK HULL CONTOUR 


INBOT = DOMAC/TABCYL, L10,19,18,1L7,16,1L5 
SITEDG = DOMAC/SITEDG, 41 
LFTCT4 = DOMAC/L8 
LFTCT4 = DOMAG/L7 
GOLFT/LONG55 
END = DOMAC/HULL 


REMARK LIGHTENING HOLES 
CTCIR1 = DOMAC/C1 
LIROL3 == DOMAG/IH1 
LTHOL3) = DOMAC/LH2 
TERMAG 
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PLAT 12 


_ 


Fig. B-10 Floor Frames 46-52 
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TYPICAL PARTS PROGRAM FOR FLOOR FRAMES46~-52 
USING FULL FRAME MACROS 


FLOOR FRAME 46 


The complete parts program would consist of only one instruction: 
FLFR = DOMAC/46 

This would require that a lead deck of cards lccating the structural 

points and defining the contours which describe Frame 46 be inserted 

into the computer just preceeding the pert program card. 


The following information would be required: 


1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 
9. 
10. 


Cubic equations, hull 

locetion Str 6 

location Sight Edge #3 Hull Plate 

Iccation Strg. 7 

Incation Strg. 8 

Description of Piate 12 | 
location Loditudirals 10,9,8,7,6,5 
location Sight Edge #4, inner-bottom plate 
Description of Longitudinal 55 

locations of lightening hole cutouts. 


The above should be readily available on pre-punched cards as output 
data from the mathematical loft. 


FLOR FRAMES 47-52 


The above process would be repeated with the corresponding data 


to produce tapes for floor frames 47 through 52. 
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Appendix C 


METHOD FOR CORRECTING ERRORS IN PROGRAMMING 


CONTENTS 


PHASE I INPUT. . . 1... 2 ee 


PHASE II OUTPUT. . 2. 2. 2 6 2 0 ee ee ew ee 


1. Correcting Phase I Output. 
2. Correcting Phase II Output 


POST PROCESSOR OUTPUT. ..... 
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Appendix C 


METHOD FOR CORRECTING ERRORS IN PROGRAMMING 


PHASE I INPUT 


When operating Phase I of AUTOMAP with Program Switch 2 on, some errors 
made in programming will cause the computer to type an error message 
symbol, the erroneous instruction statement, and then stop. This pro- 
cedure is given in detail in the AUTOMAP Manual (Ref. 3). These errors 
are either from imposing an impossible requirement on the program or are 
from instances where insufficient or inaccurate data have been given the 


program, or a card has been key-punched improperly. 


Most of these errors can be cerrected by simply typing the correct 
instruction and entering it into the computer. The compiling can then 
be continued. However, the errors in some of these instructions are 
not readily discernable or cannot easily be changed by typewritten 
correction. In such cases, it will be necessary to revise the input 


eards in order to correct the error. 


PHASE II QUTPUT 


On occasion, an erroneous instruction will be accepted by Phase I. In 
such instances, the program logic was acceptable to the computer program, 
but the part was not properly defined. An example would be where a 
corner snipe instruction had been omitted so that the computer produced 
a 90° corner. Another example would be where the machine was instructed 
to turn in the wrong direction, but in so doing, was still able to find 
a logical path. , 


Phase II, if operated with Switch 1 in the ON position, will type out 
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coordinates which define the cutting path. This is a time-consuming 
process, but an experienced prograswer can visually inspect this data 


and spot such errors. 


A faster and more foolproof method of locating such errors is to plot 
the data produced by Phase II on an automatic X-Y plotter. (Appendix D). 


The selection of the method for correcting such errors will be dependent 
upon the type and complexity of the error. In the extreme, it may be 
necessary to go back to the original program, correct the data, and 
re-run both Phase I and II. However, the errors are not usually of this 


magnitude, and therefore some shortcut procedures can save computer time. 


It is possible to make corrections in either the output card deck of 
Phase I, which requires re-running at least a portion of Phase II, or to 
correct the cards in the output of Phase II. Again, the selection will 
depend upon the type and complexity of the error. 


1. Correcting Phase I Output 


If the error is fairly complex but generally confined to only one 
section of the part, it is possible to correct only that part of 
the original program and re-run it through Phase I. The resulting 
new cards can be substituted in the original Phase I output and 


the entire program re-run through Phase II. 


If the error is relatively simple, requiring merely the insertion of 
an omitted instruction or the correction of an erroneous instruction, 
a new card may be keypunched in the format of the Phase I output and 
and substituted in the Phase I output deck. This deck can then be 
re-run through Phase II. 


If the correction made in this manner is merely a replacement of a 


bad card a simple substitution is all that is required. However, if 
the correction is made by the addition of a new card, the sequence 
mushers in Columns 77 through 80 aust be omitted to permit the card 
to bypass the Phase II sequence check. 


A whole series of instructions can be inserted in this manmer, but 
the relative complexity of these instructions will determine whether 
it is more efficient to do so or to go back and change the original 
program card. 


2. Correcting Phase II Output 


A considerable savings can be made if the programmer can correct the 
Phase II output cards, rather than correct Phase I and re-run it again. 
Here again, the complexity of the correction will determine the method 
to be used. 


If simple changes are desired which do not require mathematical calcu- 
lations, such as changes of feedrate, auxiliary instruction, or simple 
point relocations, generally involving only one card, a new card can 

be keypunched in the format of Phase II output and substituted directly. 
The deck is thereby made ready for the post processing operation with 

a minimum of effort. 


It is possible to change a complete series of motions in this manner 
and it might prove economical if the new coordinate data is readily 
available. It must be kept in mind, however, that in Phase II output 
the coordinates designate the path taken by the center of the torch, 


not the edge of the part. 
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POST PROCESSOR OUTFUT (Punched Tape) 


“The punched tape used to operate the flame entting mechine” contains 
information for the motions required which is punched in incremental 
dimensional form. This means that the extent of motion in both the 

X axis and Y axis is given in individual dimensions on a motion block 
im the tape. This does not in any way give information as to the loca- 
tion of the torch, either before or after the motion, but tells how far 
and in which direction the machine is to move on 


If an error does occur in the data given on the tape (visible or lot of 
full plate) or if changes are desired, it is nearly always necessary to 
change two blocks of information to avoid unwanted motions in the rest 


Pe. 2 
of the part. Pt. 2a 


Pt. 1 


Pt. 3a 


For example, assuming the path desired in the above sketch is through 
Points 1, 2, 3, but through error the path obtained was Point 1, 2a, 3. 
The data blocks as they appear and as they should be, are: 


Line Incorrect Correct 
1-2 x -19000 Y 0 X 30000 Y 0 
2-3 X 11000 Y-08000 X 0 Y-08000 


One can see that if only the first information block is corrected, the 
result would be to have the torch end up at Point 3a, which only changes 


the location of the error and introduces this error to all subsequent motions. 


* 
The Air Reduction Co., Tape-O-Graph, with GE Mark Century Director 


kk 
Not true for all makes of directors. 


There are two basic ways to correct or change a tape, the use of which 
depends on the extent of the change desired. 


For major changes involving many blocks of data, or requiring substantial 
calculation work, the best answer would be to modify the parts program 
and run the whole job through the crputer system again. 


If the change desired affects only a few blocks of data and/or requires 
little calculation work, it would be cheaper to use a tape-punching 
typewriter for the repair. By inserting the original tape into the 

card reader, both a duplicate tape and a typeout of the statements can 
be obtained simultaneously. When the reader reaches that part of the 
tape where the correction is required, it can be shut off and the correct 
data punched into the tape. After the new data is punched, the original 
tape can be threaded through the reader to a point agreeing with the 
corrected tape. The reader and punch may then be turned on and the 
remainder of the new tape can be duplicated from the old. 


As this latter operation can be easily handled by typist operating a flex- 
o-writer, it can be readily seen that many changes could be most economically 
handled in this manner with a minimum of instruction from the parts pro- 


grammer. 


In effect, this procedure uses manual programming to produce the new 
section of the tape. 


If, during the course of cutting an actual pari, an exrra Causes au incorrect 
machine function, an experienced operator can read the tape itself and locate 
the error. Thie ie one of the advantsager that punched paper tape haa over 


magnetic tape. If the operator locates such an error, the tape can usually 


be repaired in the above manner. 
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AUTOMAP PHASE II PLOTTING PROGRAM 


Appendix D 


CONTENTS 


ie] 


Page 


D-~16 


AUTOMAP PHASE II PIOTTING PROGRAM 


This program plots the output of AUTOMAP II, Phase II, using an IBM-1620 
computer equipped with a Cal-Comp plotter. It is used primarily for cent 
firming the accuracy of the data prior to making the control tape. 
Flotting speed is appreximately one inch per second. This Appendix 
includes operating instructions, a short discussien ef the theory invelved, 
& program flow chart, and a program listing. 


1. Place Phase II Plotting Pregram in Read Hepper 
2. Clear memory 

‘Reset 

Insert 26 00006 00009 R-Ss 

After memory clear, push instant stop. 


3. Set Program Switches 
Sw 1 - On to scale, off to plot full-scale 
Sw 2, 3, 4 - not used 
4. Push load butten on 1622 
Push reader start to read last two cards 


3S. Push computer start. If Sy 1. was on, commuter will tyne “anter acale." 
The scaling factor is entered on the typewriter in the format - X00 and 
is a multiplier. For example, to plot 1/10 scale, 0010 would be typed 
followed by R-S kay. For 2 X scale, 0200 would be typed. 
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6. Place output of Phase II into read hopper 
‘Ready the plotter 
Push reader start on 1622 


7. To plot another part, repeat Step 5. 
Error messages: 


Pi = Given a coordinate larger than 999.999. 
Other messages are self-explanatory 


The plotter traces straight line increments along one of the eight 
directions (four axes) shown in Fig. D-1. The increments are .01" in 
the KX and Y directions, and .01414" for the inclined directions. 


A punch tape instruction, 1, 2, 3, -.., 8, will move the plotter in one 
of eight specific directions. Instruction 0 will raise the pen, and 9 
will lewer the pen. 


Fig. D-1 Direction of Movement of Plotter 
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Given a particular quadrant (Fig.-D-2), and a specific point, the line 
connecting this point to the origin must fall in one of the five cases 
listed below: 


Case 1 Foiat P : AY =0 
Case 2 Point Q: AX> AY 
Case 3 Point R': AX = AY 
Case 4 Point S : AY > AX 
Case 5 Point T: Ax =0 


Case 5 


Fig. D-2 


After determining the case, the problem is reduced to positioning the 


int t mo side af tha hiean af the auadrant 
point to ome sice of the bisector cf the quadrant. 


For Point P having a null or less than .005 increment in the Y direc~ 
tion, the procedure is as follows: 


1. Round off the increment at the 1/100 position by adding or sub-~- 
tracting .005 to its value if positive or negative respectively. 


Add this veunded value te the cerrespendiug coordinate of Peiat 0 
and store it as the origin to determine the increment fer the next 


point te be joined. 


Geeck for digit in the units position of the abselute value ef the 


increment fer fast one-inch moves. 
Gheck fex digit in the 1/10 position for fest 1/10th-inch moves. 
Test fer digit in the 1/100 position fer single moves. 


By subtracting ene frem the cerrespending position after each move, the 
increment will be zere at the completion ef the total move. 


Yor Peint R the procedure is the same as mentioned above for Point FP, 
with the difference that both increments X and Y ... , (Fig. D-2) will 
be rounded off and added te the coordinates of Poiat 0 . 


The methed fer plotting these Peints Z having unequal increments in 
x and Y is as follows: 
Get the ratio of the smaller to the larger increment in absolute 
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1, 


2. 


3. 


4. 


5. 
6. 


value. 


Reund off the increments X and Y and add them to the coordi- 
nates of the Point 0 te use these new values as the origin te 
calculate the increments fer the next point to be joined. 


te the line GQ (Fig. B-3) with segments @, IB, etc., 


in the follewing manner: 
Set an XY couater equel to .005 
Add an ‘Qlatio x .01") to the counter 


the counter with AM (= .01) (check for digit ia the 


1/100 pesitien) 


a. 


I£ the counter is greater, it means that we are closer 
te the actual line going threugh the diagonal rather 
than the herizental line 


ii + .005 > aw 
oo aM - J] < -005 
(Mete: The XY counter has toe -bo reduced by mM after the 


diageaal move and the cycle goes back to Step 5.) 


Ba4 


b. If the counter is less than MA the closest path is the 
herizontal line 


Mi + .005 < An 
“a - ME > .005 


(iete: The cycle goes back directly te Step 5 after the 
herizontal move.) 


An analysis cf the moves from 0 to B of Fig. B-3 will help te 
clarify the methed. 


<1. X¥ counter = 3+ .005 

2. Mowe OA 

3. XY couater = M+ .005 - AN 

4. XY counter = 3+ .005 - AM 
=m + .005 - iM 

5. XY counter = Ik + .005 - AN< AM 
11K + .005 < 20M 


6. Move AB 


Fig. D-3 


In the case of a movement along a circular arc, the procedure is to seg- 
ment the arc into 10° segments and treat these segments as straight lines. 


PROGRAM FLOW CHART - PHASE II AUTOMAP 


CONVERT Xo .%5 TO 
FIX POINT FORMAT 
SCALE Xo No iF 

CONSOLE SW 4 ON 


5.0.0 


CONVERT x .¥ TO 
FIX POINT FORMAT 
SCALE X,Y IF 

CONSOLE Swi ON 


IS ITA 
*4" carp? 


SS 


ROUND OFF ROUND OFF 
ax ay 

STORE jax| STORE [AY] 

i RONTR | jin KCRTR | 


Yo = Yor AY 


D-8 


FR. AREAS 
FOR FAST 
MOVEs 5 


<a co 


FOR FAST 
MOVE = 7 


ROUND OFF 
Ax 


STORE | Ax) 
th RCHTR 


5.0.0 


D-8 


xY¥ &O 


ie 
PULSE 3 MOVE 


X CNTR. 1.0 


es 
Vereen iN “we 
POSITION : PULSE ‘Ao MOVE 
— a 
XCNTR- 0-01 
¥ 37 Bo f 7 
eS ee PULSE Yoo Move! 


5.0.0 D-9 


XY CNTR —G.01 YCUTR +0.0t 


5.0.0 B-10 


D-11 


5.0.0 


cw eO 


5.0.0 


Xe, Ye , RADIUS 
FLOAT TO FIX 


RO = RO+4 
RRO=RRO+t 6 


D-12 


—=_—____—. TEST TO SEE IF VERY CLOSE 
to (x, ,¥,) IF SO p RANE To 
RD. 


7 


5.0.0 


B-14 


5.0.0 


CLEAR XY CNTR, 
x CNTR, AND 
¥ CNTR 


o-15 
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Appendix E 


AUTOMAP POST PROCESSOR 
FOR GE MARK CENTURY DIRECTOR 


This program is the final step in the AUTOMAP system. It accepts as 
input the output of Phase II AUTOMAP, and prepares punched paper tape 
for use with the General Electric Company's Mark Century director on 
the Air Reduction Company's Tape-O-Graph flame cutting machine. This 
Appendix includes operating instruction, discussion of the nesting 
technique, instructions for preparing nesting header cards, some 
special considerations, sample problem, flow chart, and program list- 
ing. 


I. OPERATING INSTRUCTIONS 


A. Clear memory 
1. Reset - Insert 
2. Type 26 00002 00003, R-S 
3. After 5 seconds, push instant stop 


B. Load Program 
1. Push reset 
2. Place post-processor program deck in Read Hopper 
3. Push load key on reader 
4. Push reader start to read last two cards 
5. Parity SW and I/0 SW to stop, o'flow to program 


C. Operating Program 
1. Ready paper tape punch 


2. Program switch settings 


5.0.0 


SW-1 On - output is printed on typewriter, Off - not printed 
SW=-2 .Gn - output is punched on paper tape, Off - not punched 


II. NESTING 


A. 


5.0.0 


S#-3 On - Tape punch will prepare a 
1 


beme fer = henA_eee tere 
Spe TOT G2 GGee-Vratlsa 


followed by record mark. 
Example: Part 3052 Tape 1 ¥ 
Release - start 


Tape punch will enter title in coded 
format directly following the blank 
area. 


Run about two inches of tape to 
separate title from machine tool 
instructions 


Sw-4 On - totals for length of path, cutting time and 
sum of OX, AY motions are printed for each part and 
for all parts (if last part has a "FINI" card), 
Off - no totals 


3. Load data deck (Phase 2 Output) 
Press reader start and computer start 


5. Error messages are self-explanatory, with the exception of 
Err Pl, which means that a number larger than 1000 was entered. 


When nesting, a special header card must be prepared for each 
program to provide the post processing program with certain informa- 
tion. (See Fig. E-1.}) The information required tells the post- 
processor how much a particular part is to be rotated and trans- 


lated, and if reflection about a horizontal axis is desired. The 


information is in the form of any two known points (X and Y coordi- 
nates for each) on the original part, and three of the four 
coordinates for the same two points on the transformed part). The 
reason one of the transformed coordinates is omitted is that, in 
giving the coordinates of two points on the original part, a 
distance between them is implied and this distance must be carried 
over to the points on the transformed part. This is accomplished by 


letting the nesting routine calculate one of the coordinates on the 


iF RESTING 


MWTOKAPE 
PORT. PROCESSOR 
PROGRAM FOR 
GE DIRECTOR with 
ARCO — MACHINE . 


Fig. E-1 Data Flow - 
ADTOMAP Poet Processor (Including 
esting Routine) for GE Merk Century 


ntury 
Director 


AIRCO 
TAPE .O- GRAPH 
MACHINE 
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trenefermed pert. Por example. if a nert were programmed with the 
indicated relationship to the coordinate system, 
Y 


-_ 


1% 


and it is desired that the part have the following relationship to 
the coordinate systen, 


Y 
YT 
Yt 
x 
xT x,T 
the values for Py . Po ; P,T and one of the two coordinates for 


Pot (either x,T or ¥,T) tmust be punched in the header card. 


The format of this card is: 
ee 1-2 18 if reflection about horizontal axis is not required 
18 if part is to be reflected 


cc 5-10 SCALE FACTOR: This number is of the form XXX000, and is 
a multiplier. For exemple, 1/8 scale would be 000125. 
If a full-scale part is desired, 001000 must be punched 
in these card columns. 
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ce 45-50 
ce 53-58 
cc 61-66 
ce 69-74 


ce 69 


ec 75-80 
cc 67 


Yt 


(Solution 1 


YT 


Y,T 


(Solution 2 
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¥1 conetent of fore ¥FENN0. A neeative number will have 
a flag over the third decimal place. 


yi 

x2 

yY2 

X 1 Translated 

Y 1 Translated 

X 2 Translated 

Y 2 Translated 

This cc is used to indicate whether X 2 or Y 2 is 
omitted. A flag means that Y2 T is omitted, while 
the absence of a flag means that X2T is omitted. | 
May be used for identification 

There are two possible solutions for X 2 T (or Y 2 T). 
A flag in cc 67 means to accept the more negetive 
solution, and its absence indicates the more positive 


solution. For example, using a line between the key 
points to represent the transformed part: 


There are two solutions 

if YT is omitted. A 

flag in cc 67 would | 
select the lower Y,T 

in this case. 


x,T 
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TTT SRP ATAT Eetneed Banat ry Sea 


BLie wha wasees THAR ATT OMS 


1. Cards may be inserted into the data deck at any point, and a 
sequence error message avoided by omitting the flag in ce 72. 


2. If a card coded rapid (with an s in cc 73) is placed in the 
parts program, the post processor will automatically assume 
a feed rate of 100"/min (rapid traverse) for the increment 
between the two data cards on either side of the rapid card. 


3. For nesting, 100"/min feedrates are automatically generated 
for motions between parts. 


4. If a feedrate factor greater than 5000 is calculated, the 
program automatically sets the feedrate factor to 5000. 
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SAMPLE PROBLEM FOR POST PROCESSOR 
TOPUT DATA 


50500000005 1 105000000e00eCC000 
[aur 

2 FELRE bh FhE LI 72 
inyyee 4755476542074 


DS 1705159205110 
128000000 


110 socesebooosons0e 


we ee ee tr eee 


SAMPIZ PROBLEM FOR POST PROCESSOR 
OUTPUT DATA 


GhXYM2M3K—4 
rere el 


XYM5M6M—4 
G1X OO43Z3Y OOOOOFK614 
G3x 0187¢-01099.101816K00SS0F0975 
G1X Oh134Y-O0000FO4S8 


5S4OF 3636 
62X 00 00229J00392K00221Fhikh 
G1IX GOROCY 00680F 2969 
G1X-04252Y O0O0OOFOA7O 
G1X OOOOOY 00384F5000 
GIX 03881Y 00272F0514 
G1X-02919Y 0537750826 
61X-00962Y~00962F 1470 
GIX COOOOY 00929F2152 
G1X-00233Y 00000F5000 
61X-02383Y-05615F0327 
63X 01316Y-00235J013 16K03565F05 26 
G3X OO9SEY 00121JC0000KO FO5 26 
G1X 00000Y-00271F5000 
G1X-02516Y O0000FO794 
G1X-00433Y O0000FA614 
GAKYH-SH-AH-3MO 


DELTA X SUM = 0000 .000 

DELTA Y SUM = 

LENGTH OF PATH = a 993 7303306 
CUTTING TIME = 001.86 


5.0.0 E-8 


FLOW CHART OF POST— PROCESSOR _ 


ae MUATIALIZATION 


(em x can) 


TMS IS ROTATION- TRANSLATION CARD 


THIS 1S ROTATION -TRANSLATION . 
WNVERSION CARD 


tree “SEQuENce ERROR" 


POST. PROCESSING CARD 


——-— FEED RATE CARD, STORE & 6O TO 
BEGIN 


SPORE 
FERD RATE 


5.0.0 E-9 


TOOL RADWS — DON'T NEED 


CIRCLE CARD 


START 


5.0.0 E-16 


=_— 


O1_CARD (POST.PROCESSING INFORMATION) 


"69" 1S NUMERIC 
REPRESENTATION 
OF AM RO FOR RAPID 


PUNCH IF SW2 ON 
AND NOT RAPID 
CARD 


5.0.0 E-1ll 


O03 CARD 


5.0.0 


(_END_OF PART)_ 


E-12 


O04 CARD (FIN T — END OF ALL PARTS) 


GO TO P START 


O5_ LINE CARD 


ROTATE-TRANSLATE & INVERT 
THS POINT 


CONVERT POINT ved IS CARD 
TO FIXED FORMAT FIRST 
& STORE 6S carp? 


NOT OWE 


CONVERT POINT 
TO FIXED FORMAT 
®& STORE 


CALCULATE FRED- 
RATE FACTOR «= 


ad 1 


B FAcTORN, _YES 
SET To 5000 


NO 
YES 


SET FEEDRATE TO 
lioo & RECALCULATE] 

FEED RATE 
FACTOR 


5.0.0 E-14 


STORE INFO POR 
"END" 

TYPE OUT 

ir sw4 On 


IVPE AX, AY & 
FEED FACTOR 
IF Swt ON 


PUNCH AX, AY & 
FEEDFACTOR 
IF SW 2 ON | 


CLEAR FLAG AT 
BEGW WHICH 
INDICATED 
RAPID MOVEMENT 


BEGIN 


5.0.0 E-15 


O06 CIRCLE CARD 


CIRCLE 
ves ROTATE , INVERT & 


TRANSLATE THIS 
CIRCLE 


CALCULATE FEE, 
RATE FACTOR 
100 % FEEDRATE 


CONVERT INFO 
TO FIXED POINT 
& sTorRe 


TYPE 


ROTATE , INVERT 
& TRANSLATE 
nN 


CONVERT WFO 
TO FIXED POINT 
& STORE 


FIND QUADRANT 
LOCATION OF 


R&B 


5.0.0 E-16 


"OS DOES NOT FOLLOW 06" 


5.0.0 


FINISHED 
WITH CIRCLE 
OUTPUT 


BEGIN 


E-17 


18 _OR 18 CARD (ROTATION~TRANSLATION - 


INVERSION HEADER CARD ) 


TRAN 1 


WORK = WORK 
~(PY,¥ - PY, 7)* 


WORK = WORK 
—(Px,T - Px, T)* 


PY,T= Vworn 


ES . 
PR,Te _PX,T a p 


PPX2ts BATS 
PR,T 


PY,T= PY,T + 
PY,T 
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5.0.0 


__ Cove — Put) (rma - Pa) = (4) Paat — Pt) 


sine 
(PY, -Py,)? +(Px2- Px) : 
cos @ x (PA2— PH)(PHLT-PUT) + (P¥2 - PU) PYsT-PUT) 


(Pv, —Py,)* + (Px, — Px,)* 


AX TRANS = PX,T — PX, COS O+ PY, SING 


Y TRANS = PY,T —-PX, SIN @— PY, COS @ 


SET FLAG AT 
+ BEGIN 


BEGIN 
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ROTATION — TRANSLATION ~ INVERSION  SUB- ROUTINE 


SCALE RADIWS 

& REVERSE 

DIRECTION OF 

ORLLE IF ii - 
. 


%= XY COS OS —ATRANE +Y SIN @ 
Y= XS1IN @ +YCOS@ + Y TRANS 
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Appendix F 


TAPE PLOTTING ROUTINE 


INTRODUCTION 


This program plots numerical control paper tapes prepared for the 
GE Mark Century director on an IBM-1620 computer with an on-line 
Cal-Comp plotter. The input to this program (Fig. E-1 of Appendix E) 
is a numerical control paper tape as prepared by the AUTOMAP II Post 
Processor Program (Appendix E). 


Typically, this tape would contain information for controlling the move- 
ments of a numerically controlled flame cutting machine along the 
perimeter of parts which have been nested on a steel plate. Thus, 

this program has the function of confirming the correctness of the 
nested parts prior to actual cutting of steel. 
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_ 


A. Clear Memory 
1. Reset - Insert 
2. Type 26 00002 00003 , R-S 
3. After 5 seconds, press Instant Stop 


B. load Program 

1. Push Reset 

2. Place tape plotting program in Read Hopper 

3. Press Load Key on Reader 

4. Push Reader Start to read last two cards 

5. Parity Switch and 1/0 Switch to Stop, O'flow to program 
C. Qperating Program 

1. Thread N/C paper tape in paper tape reader 

2. Set program switches 


Prog. Sw. 1 - if OM, may enter on the typewriter coordinates 
for the desired starting point of the plotted figure. Up to 
eight significant digits plus a sign and a decimal point may 
be entered. 
Example: If the starting point is (2,-2) key in 
b2. R-S (where b is a blank) 


-2. R-S 
if Sw. 1 is OFF, the starting point is assumed 


to be (0,0). 


Prog. Sw. 2 - If ON, the X and Y coordinates for each 
plotted point will be typed out. On circular moves, the 
computer will print out the coordinates of the end points of 
chords along the circle at 5° central angle intervals for the 
prescribed arc length. 


Prog. Sw. 3 - If ON, a scaie factor may be entered to plot a scaled 
figure. Again, up to 8 significant digits plus a sign and decimal 
point may be entered on the typewriter. The scale factor is a 
divisor; therefore, if for example, a 1/2 scale figure is desired, 
the value to be keyed in is b2. 

If Sw. 3 is OFF, a full-scale figure will be plotted. 
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GEMERAL DISCUSSIGN 


The input to the director is a series of points, along with a code indicating 
wnether successive points are to be joined by straight lines or circular 
arcs. If successive points are to be joined by straight lines (i.e., 
straight line interpolation between points), the director requires 
increments in the X and Y directions. If successive points are to 

be joined by circular arcs, the input information consists of the direc- 
tion of travel on circle (clockwise or counter-clockwise), and the incre- 
mentsAX and AY between the successive points. The center of the circle 
is specified in the same record as AX and AY increments to the center 
of the circle. Circular arcs greater than 90° must be described in two 
steps. 


In addition to tool path information, the tape contains information 
concerning the operation of the machine itself, such as torch ignition, 


dwells, etc. These are ignored by tape plotting program. 


The first point is considered to be the origin of the figure, and con- 
sequently no actual movement of the pen will be made until the coordinates 
of the second point are calculated. With Switch 1 OH, the operator has 
the ability to key in on the typewriter the actual values of the 
coordinates of the first point. Ctherwise, they will be automatically 


considered to be zero. 
A circular move consists of straight line increments (chords) which 


correspond to a central angle of five degrees. Therefore, the initial 


and terminal points must be at least five central degrees apart. 
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The input to the main program from the conversion (CONW) subroutine 


consists of the following quantities: 
N Ax AY AJ 4K 


N = Code number to indicate whether the next point is to 
be joined by a straight line or by an are of a circle, 
and will also indicate direction on circle (i.e., counter- 
clockwise or clockwise. 


N= 1 Straight line interpolation 
N= 2 Circular interpolation clockwise 
N= 3 Circular interpolation counter-clockwise 
4X AY = Delta-X and Delta-Y¥ increments having both magnitude and 
direction 


AJ AK = Delta-X and Delta-Y increments in the direction of the center 
of the circle when code calls for circular interpolation. 


The function of the PIOT Subroutine is described on Page F-29. 


SUBROUTINE FUNCTIONS 


The Tape Plotting Program has been written in the FORTRAN language. This 
program requires the addition of two subroutines to the FORTRAN Library 
subroutine deck. These subroutines are called CONV and PLOT. The CORY 
(Conversion) subroutine has the function of converting the non-standard 
format of the N/C tape into a format acceptable to the FORTRAN program. 
The flow chart and program listing for this subroutins is contained 

in this Appendix, starting on Page F-36. 


The PLOT subroutine has the function of doing the plotting based upon 
points as calculated by the mainline program. Thus, the normal sequence 
of events is to (1) initialize the program, (2) go to the CONV subroutine 
to read the N/C paper tape and convert the format of the data, (3) return 
to the mainline program to calculate the point to be plotted, (4) go tv 
the PLOT subroutine to plot the calculated point, (5) return to mainline 
program, (6) go to CONV subroutine to read next block of information, etc. 
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MATHEMATICAL FORMULAE USED 


For Straight Lines (Fig. F-1) 


xB=X + X 
vBz=Y + Y 


ieee 


Ag 


Fig. F-1 


For Arcs of Circles (Figs. F-2a and F-2b) 


When AX = 0 
~~ °o 
If OY (+) ——————-p» AH = 90 


1f AY (-) ———>& = 270° 


Otherwise 
TANS = AY / AX 
& = ARCTAN AX / AY 


Also 
n= \6r + & 
ap = \/Ax’ + AY /2 
co=\/R° - AD 
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a 


For M=3 (Counter-clockwise) € = R- a 
We2 (Clackwine) 2=R% -F 
In either case 
xc = A+R. cos € 
YO = YA+R. SIN & 
$= -2.2 


When XA = XC 

If YA>YC ——»> F = 90° 
pt) o 

If YA YC ———> — = 270 

Otherwise 
TAN Z =(YA - YC)/(XA - XC) 

Z = ancran 7 
then, 
For N#2: (Clockwise (Fig. F-Za 


XE = XC + R.cos ( Z- 5°) 


First move is & e 
YE = YC + R.SIN ( & --5-) 


in increments of 52 


~~ (} 

xc + R.COS ( & - 10-) 
ad oO 

YF = YC + R.SIN (Z - 10°) 


Second move 


. 
° . 
. . 


XC + R.COS ( ea) 
Last move 


=| 


Yo+R.SIN(Z-F) 
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and, For §F®3: (Counter-clockwise) (Fig. F-2b) 


XE = XC + R.coOS (¢ + 5°) 
The first move is sa & - 
YE = YC + R.SIN (Z+ 5) 


in increments of 5~ 


= o 
Ue oo aed De HC + 8.005 (E+ 10°) 
aF = YC + R.SIM ($+ 10°) 


B= xXC+R.COS (+S) 


Last move a ie 
YB= YC+R.SIN(Z+T ) 
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Fig. F-2a 


Gounter>clockwise 


ah+K 7A 
aX +x = EX 


a5v298/1V = 49 
Bv29/09 = £9 
: BWV28/AY 9 td 
AQ + Aa Aad aheatA axe xex |: mv7s/ KT = AX 
XV 4+ XMe ea o44 


PLOW XUN Gvay 


BNINOBSNS “ANC 


=, 
Aa Xe 


4NO BAL wo 


(MVELWOA) KVEOOUd AIT MIVH AHL JO LEVHO MV 


Bug 
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awa *(A-@d) + Au 8 Ad 
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ONY" 2°GA 
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z 
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FORTRAM MAINLINE PROGRAM LISTING 
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C %**% AIRCO TAPE PLOT 11/17/62 ** 
DX=0. 
DY=0. 
DUMMY=PLOT(11111.) 
IF(SENSE SWITCH 1)61,62 

61 ACCEPT 201,VALX,VALY 
GO TO 19 

62 VALX=0. 
VALY=0. 

19 X=VALX 

Y=aVALY 

REAL X=VAL X 

REALY=VALY 

N=w1 

DJ=0. 

DK=60. 

Lu2 

GO TO 10 

IF(SENSE SWITCH 3)54,55 

ACCEPT 200, SCAL 


SCAL=1. 
DUMMY=CONV( 2.) 
XP=DX/SCAL 
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PLOT SUBROUTINE 
METHOD 


The plotter traces straight line increments along one of the eight 
directions (four axes) shown in Fig. 1. The increments are .01" in the 
X and Y directions, and .01414" for the inclined directions. 


A punch tepe instruction, 1, 2,3, ..., 8, will mowe the plotter in 
one of eight specific directions. instruction 0 wiii raise the pen, 
and 9 will lower the pen. +Y 


8 1 2 


Fig. 1 Birection of Movement of Fiotter 
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Civen a particular quadrant (Fig. 2), and a specific point, the line 
coumecting this point to the origin must fall in one of the five cases 
listed below: 


Case 1 Point P : AY=0 
Case 2 Point Q : AX> AY 
ase 3 Point R : AX = OY 
Case 4 Point S : AY>AX 
Case 5 Point T : AX=0 


Fig. 2 


After determining the case, the problem is reduced to positioning the 
point to one side of the bisector of the quadrant. 
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For Point FP having a null or less than .005 increment in the Y direction, 
thz procedure is as follows: 


1. 


2. 


3. 


4. 
5. 


Round off the increzent at the 1/100 position by adding or 
subitacting -US to its value af positive or megetive respectively. 


Add this rounded value to the corresponding coordinate of Point 0 
and store it as the origin to determine the increment for the next 
point te be joined. 


Check for digit in the units position of the absolute value of the 
increment for fast one-inch moves. 


Check for digit in the 1/10 position for fest i/10th-inch moves. 
Test for digit in the 1/100 position for single moves. 


By subtracting cone from the corresponding position after each move, the 
imcrement will be sero at the completion of the total move. 


For Point R the procedure is the same as mentioned above for Poiat ? 
with the difference that both increments X and Y ..., (Fig. 2) will 
be rounded eff and added to the ceordinates of Point 0 . 


The methed for plotting those Points Q heaving unequal increments in 
X and Y¥ is as follows: 


1. 


2. 


5.0.0 


Get the ratio of the smaller to the larger increment in absolute 
walue. 


Round off the increments X and Y and add them to the coordinates 
of the Point 0 to use these new values as the origin to calculate 
the increments for the next point to be joined. 


Approximate the line a (Fig. 3) with segments Ga, 2B, etc., in 
the following manner. 


Set an XY counter equal to .005 
Add MMi (Ratio x .01™) to the counter 


e the counter with MM (= -01) (check for digit in the 
1/100 position) 


a. If the counter is greater, it means that we are closer 
te the actual line going through the diagonal rather than 
the horizontal line __ = 

MN + .005> AM 
AM - 3 <.005 
(Mote: The XY counter has to be reduced by MA after the 
diagonal move and the cycle gees back to Step 5.) 
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b. If the counter is less than MA the closest path is the 
horizontal line 


MN + .005 < AH 
. AM - BN > .005 


(Note: 
the horizontal move.) 


The cycle goes back directly to Step 5 after 


An analysis of the moves from 0 to B of Fig. 3 will help to 
clarify the method. 


1. 
2. 
3. 
4. 


XY counter = MN + 
XY Counter = MN + 
XY Counter = MN + 
oom QBN + 
XY Counter = IK + 


Move 


oLK + 


-005 > AM 


| 
’ 


8 
BIBI Rl 


8 


. 


8 8 
AA 
Ale 
Rl 
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Fig. 3 
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USE OF THE SUBROUTINE IN A FORTRAN PROGRAM* 


The calling sequence for the plot subroutine is: 


X = Any expression 
Dummy = PLOTF (¥) 
Wacce > 
X = Coordinate X of the point to be plotted. This value 
must be on the right-hand side of the instruction 


preceding the plot instruction. This is to place this 
value in FAC (Floating Point Accumlator). 


Y = Coordinate Y of the seme point 
Dumay = Any floating point dummy variable not used in computation 


a. Dummy = PLOTF (11111.) is an instruction that must be placed at 
the beginning of the program. This will set the subroutine to 
start, put the pen dow, and ready the subroutine for a set of 
data. 


b. Dummy = PLOTF (50000.) will only put the pen dow 
c: Dummy = PLOTF (60000:) will put the pen up 


Instructions. b., and c., are complete by themselves and do not require 


any prior instruction. 


Attention is called to the fact that the origin of the plotted figure is 
automatically set as the first point. 


This subroutine can only handle X and Y values having up to three 
integers (at the moment they are stored in FAC and argument, respectively, 
ready to be plotted). 


®The User should refer to the FORTRAN Manual for the procedure to incor- 
porate this subroutine in the library subroutines deck. 
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zx SAMPLE FORTRAN PROGRAM w % Me 
SAMPLE PROBLEM FOR PLOT SUBROUTINE 
JUL 10=0 


SET THE PLOT SUBROUTINE TO INITIATE 
10 DUMMY=PLOTF(11111.) 

READ 100,SCALX,SCALY 

READ IN X AND Y COORDINATES GF THE POINT 
11 READ 100,X,Y 

CHECK FOR PEN UP OR DOWN 

1F(X-5000.)12,13,14 

PUT THE PEN DOWN - 
13 DUMMY=PLOTF (50000. ) 

GO TO 11 

PUT THE PEN UP - 
14 DUMMY=PLOTF (60000. ) 

GO TO 11 
12 YxY*SCALY 

X=xX*SCALX 

DUMMY=PLOTF(Y) 

-GO TO 11 
100 FORMAT (8X,F15 .8,3X,F15.8) 


xe * gone DATA xke* 
2. 2. 
6. 2. 
6. 6. 
2. 6. 
2. 2. 
30 3. 
6000. e 
5. 5. 
5000. 0. 
6. 6. 
6000. 0. 
6. 2. 
gaat 0. 
6000. m 
26 e 
5000, 0. 
36 5. 
5. 5 
Se 3. 
3. 3. 
3. 5. 
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* 


SAMPLE OUTPUT 
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FLOW _C¢ T OF PLOT SUBROUTINE 


INITIATE ¢ 
@) cOUNTER-~0 


b) PEN DOWN 
3 Ake dX =O 


m xO & YO 
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STORE XkY 
tee Rl 4 


XCNTR 20 
YCNTR 20 
AYCNTR =O 


XOuUT «7 
YOur=1 
XY OUT «8 


SET FAL AREAS 
FOR FAST MOVE 
=5 


ROUND OFF 
ay 


SET FILL AREAS 
FOR FAST MOVE 
-= a 


YO = YO AY XT 


STORE | Ay] 
IN KCNTR 
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SET FILL AREAS 
FOR FAST MOVE 
#3 


STORE ]4*| 
IN X CNTR 


| XO= KO+ AX 


F238 


RATIO2 


19*/avle -o1 


RATIO = 
\/ax | * “Ob 


xO = XO+ AX 
YO = YO AY 


XYCNTR = XYCNTR + RATIO 


XY CNTR = -O1 


YCONTR + -O1 XCNTR = -Ot 
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SET Fai AREAS 
FOR PAST MOVE 
= XY OUT 


XCNTR — 10 


DIGIT IN 
THE TENS POSIT. 


, PULSE 
1 MOVE 


XCNTR-1 


DIGIT IN 
THE UNITS POSIT, 
XCNTR 


DIGIT Ih 


tHE ‘io POSIT. 
_— 


XCNTR*O 
YONTR=0 
| XYCNTR <0 


_ PULSE 
hoo" Move 
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XVCNTR x= XYCNTR + KATIO 


{ PULSE 7 PULSE 3 
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